(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     12748,        293]
NotebookOptionsPosition[     11374,        267]
NotebookOutlinePosition[     11761,        284]
CellTagsIndexPosition[     11718,        281]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "x"], 
  RowBox[{"(", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.7663992026438303`*^9, 3.766399213643861*^9}, {
   3.766399286313862*^9, 3.766399290363835*^9}, 3.766399364683833*^9, {
   3.7663994362838373`*^9, 3.7663994400938396`*^9}, {3.7664133670921535`*^9, 
   3.7664133760473156`*^9}, {3.7664134254378614`*^9, 
   3.7664134273168535`*^9}, {3.7669541759804034`*^9, 
   3.7669541821768527`*^9}, {3.7669543030011835`*^9, 3.7669543512933693`*^9}, 
   3.7669563432562666`*^9, {3.7670872674570436`*^9, 3.767087268705965*^9}, {
   3.837490733509015*^9, 3.8374907347290163`*^9}},
 FontSize->16,
 CellLabel->"In[1]:=",ExpressionUUID->"143c7a78-3e25-40ce-a6c1-cab941221eaf"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.766399218984039*^9, 3.76639923007405*^9}, {
   3.7663992863438735`*^9, 3.76639929039384*^9}, 3.766399364713882*^9, {
   3.766399436303838*^9, 3.766399440123839*^9}, {3.766413367212057*^9, 
   3.766413376067338*^9}, {3.766413425467843*^9, 3.7664134273368425`*^9}, {
   3.7669541760001373`*^9, 3.766954182186839*^9}, 3.7669543513033304`*^9, {
   3.7669545192370777`*^9, 3.766954537036047*^9}, {3.766954590793625*^9, 
   3.766954592862488*^9}, 3.7669563432662673`*^9, {3.7670872675070195`*^9, 
   3.767087268715995*^9}, {3.8374907336590176`*^9, 3.837490734759015*^9}},
 FontSize->16,
 CellLabel->"In[2]:=",ExpressionUUID->"7a046717-5af5-43a6-8f87-cc015eb1dc24"],

Cell[BoxData[
 RowBox[{
  UnderscriptBox["\[Limit]", 
   RowBox[{"n", "\[Rule]", "\[Infinity]"}]], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["1", "n"]}], ")"}], "n"]}]], "Input",
 CellChangeTimes->{
  3.766333425572628*^9, {3.766399286783831*^9, 3.7663992904138794`*^9}, 
   3.7663993647438335`*^9, {3.766399436323838*^9, 3.766399440153889*^9}, {
   3.7664133673319798`*^9, 3.7664133760872955`*^9}, {3.766413425487831*^9, 
   3.7664134273568325`*^9}, {3.766954176020125*^9, 3.766954182196799*^9}, 
   3.766954351313326*^9, 3.7669563432762127`*^9, {3.76708726759656*^9, 
   3.767087268725988*^9}, {3.8374907337190204`*^9, 3.8374907347690144`*^9}},
 FontSize->16,
 CellLabel->"In[3]:=",ExpressionUUID->"22715315-32c6-4b87-9172-5bafb82ac35e"],

Cell[BoxData[
 RowBox[{
  UnderscriptBox["\[Limit]", 
   RowBox[{"x", "\[Rule]", "0"}]], 
  FractionBox[
   RowBox[{"Sin", "[", "x", "]"}], "x"]}]], "Input",
 CellChangeTimes->{
  3.7663334255826683`*^9, {3.766399286803876*^9, 3.7663992904338264`*^9}, 
   3.766399364763833*^9, {3.766399436353891*^9, 3.766399440173887*^9}, {
   3.766413367352002*^9, 3.7664133761072855`*^9}, {3.766413425507823*^9, 
   3.7664134273768225`*^9}, {3.7669541760301323`*^9, 3.7669541822067947`*^9}, 
   3.76695435133335*^9, 3.7669563432862415`*^9, {3.767087267606553*^9, 
   3.7670872687359576`*^9}, {3.8374907337390156`*^9, 3.837490734779014*^9}},
 FontSize->16,
 CellLabel->"In[4]:=",ExpressionUUID->"9649eae3-a415-4bdd-b427-d703c5f27aff"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]]], "Input",
 CellChangeTimes->{
  3.7663334256126633`*^9, {3.76639928688383*^9, 3.7663992904838295`*^9}, 
   3.7663993648138824`*^9, {3.7663994363738875`*^9, 3.7663994402038875`*^9}, {
   3.76641336737199*^9, 3.7664133761272755`*^9}, {3.7664134255178175`*^9, 
   3.766413427396813*^9}, {3.7669541760301323`*^9, 3.7669541822167883`*^9}, 
   3.76695435133335*^9, 3.766956343296281*^9, {3.7670872676165905`*^9, 
   3.7670872687459455`*^9}, {3.8374907337490206`*^9, 3.837490734799014*^9}},
 FontSize->16,
 CellLabel->"In[5]:=",ExpressionUUID->"6935f1b6-42e5-4ef9-bb42-80691abeb9f6"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{
      "Sin", ",", "Cos", ",", "Tan", ",", "Cot", ",", "Sec", ",", "Csc"}], 
      "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.766333425622629*^9, {3.766399286903863*^9, 3.7663992905138817`*^9}, 
   3.7663993648438835`*^9, {3.766399436393875*^9, 3.766399440223838*^9}, {
   3.766413367391981*^9, 3.766413376147262*^9}, {3.7664134255378065`*^9, 
   3.7664134274168015`*^9}, {3.7669541760401134`*^9, 3.766954182226821*^9}, 
   3.7669543513433266`*^9, 3.766956343306203*^9, {3.767087267626542*^9, 
   3.7670872687559395`*^9}, {3.837490733769015*^9, 3.8374907348090143`*^9}},
 FontSize->16,
 CellLabel->"In[6]:=",ExpressionUUID->"a1052d58-9fea-43b9-8411-a984d6a043b4"],

Cell[BoxData[
 RowBox[{"N", "[", 
  SuperscriptBox[
   SqrtBox["2"], 
   SuperscriptBox[
    SqrtBox["2"], 
    SuperscriptBox[
     SqrtBox["2"], 
     SuperscriptBox[
      SqrtBox["2"], 
      SuperscriptBox[
       SqrtBox["2"], 
       SuperscriptBox[
        SqrtBox["2"], 
        SuperscriptBox[
         SqrtBox["2"], 
         SuperscriptBox[
          SqrtBox["2"], 
          SqrtBox["2"]]]]]]]]], "]"}]], "Input",
 CellChangeTimes->{{3.7663333519228745`*^9, 3.7663333523227353`*^9}, 
   3.7663334256326923`*^9, {3.766399143093858*^9, 3.766399145283853*^9}, {
   3.766399287173826*^9, 3.7663992906438637`*^9}, 3.7663993649738655`*^9, {
   3.7663994365238714`*^9, 3.7663994403538713`*^9}, {3.76641336774181*^9, 
   3.7664133762871885`*^9}, {3.7664134256877265`*^9, 3.766413427536784*^9}, {
   3.7669541760501204`*^9, 3.7669541822367787`*^9}, 3.766954351353306*^9, 
   3.766956343316227*^9, {3.7670872676365857`*^9, 3.7670872687759705`*^9}, {
   3.8374907337790174`*^9, 3.8374907348190145`*^9}},
 FontSize->16,
 CellLabel->"In[7]:=",ExpressionUUID->"80adbc8f-0b1f-4ad2-82cb-814dbf139056"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tetration", "[", "1", "]"}], "=", 
   SqrtBox["2"]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tetration", "[", "n_", "]"}], ":=", 
   SuperscriptBox[
    SqrtBox["2"], 
    RowBox[{"tetration", "[", 
     RowBox[{"n", "-", "1"}], "]"}]]}], ";"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"tetration", "[", "100", "]"}], "]"}]}], "Input",
 CellChangeTimes->{
  3.766333425642637*^9, {3.7663992872038774`*^9, 3.766399290663829*^9}, 
   3.7663993649938865`*^9, {3.766399436553887*^9, 3.7663994403738985`*^9}, {
   3.76641336776175*^9, 3.766413376307211*^9}, {3.7664134257077155`*^9, 
   3.766413427546733*^9}, {3.7669541760601034`*^9, 3.7669541822467732`*^9}, 
   3.7669543513632994`*^9, 3.766956343326213*^9, {3.767087267646581*^9, 
   3.7670872687859235`*^9}, {3.837490733789015*^9, 3.8374907348290153`*^9}},
 FontSize->16,
 CellLabel->"In[12]:=",ExpressionUUID->"10eb80c9-c428-4332-9d48-166be183652c"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"tetration", "[", "n", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "100"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.766333425662627*^9, {3.766399287223881*^9, 3.7663992906938286`*^9}, 
   3.7663993650138693`*^9, {3.766399436573848*^9, 3.7663994404038982`*^9}, {
   3.766413367771779*^9, 3.7664133763172073`*^9}, {3.7664134257177105`*^9, 
   3.766413427566722*^9}, {3.7669541760601034`*^9, 3.7669541822567687`*^9}, 
   3.7669543513733463`*^9, 3.766956343336189*^9, {3.7670872676565604`*^9, 
   3.7670872687959604`*^9}, {3.837490733799015*^9, 3.8374907348490143`*^9}},
 FontSize->16,
 CellLabel->"In[15]:=",ExpressionUUID->"abb2efd1-ee54-465f-bd45-411b7eaaed02"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "x"}], "+", "c"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.76633342567268*^9, {3.766399175023861*^9, 3.7663991862938538`*^9}, {
   3.7663992872538795`*^9, 3.766399290723878*^9}, 3.7663993650438833`*^9, {
   3.766399436603888*^9, 3.7663994404338975`*^9}, {3.766413367791766*^9, 
   3.7664133763371973`*^9}, {3.7664134257376995`*^9, 
   3.7664134275867586`*^9}, {3.7669541760700865`*^9, 3.7669541822667627`*^9}, 
   3.7669543513833404`*^9, 3.7669563433461747`*^9, {3.767087267666559*^9, 
   3.767087268805956*^9}, {3.837489223893613*^9, 3.837489226343609*^9}, {
   3.837489529176888*^9, 3.8374895314968495`*^9}, {3.8374907338190145`*^9, 
   3.8374907348590145`*^9}},
 FontSize->16,ExpressionUUID->"219ad83f-9a17-48bd-8283-338cfb42e26a"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     SuperscriptBox["n", 
      RowBox[{"1", "/", "n"}]], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "100"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.76633342567268*^9, {3.766399175023861*^9, 3.7663991862938538`*^9}, {
   3.7663992872538795`*^9, 3.766399290723878*^9}, 3.7663993650438833`*^9, {
   3.766399436603888*^9, 3.7663994404338975`*^9}, {3.766413367791766*^9, 
   3.7664133763371973`*^9}, {3.7664134257376995`*^9, 
   3.7664134275867586`*^9}, {3.7669541760700865`*^9, 3.7669541822667627`*^9}, 
   3.7669543513833404`*^9, 3.7669563433461747`*^9, {3.767087267666559*^9, 
   3.767087268805956*^9}, {3.837489223893613*^9, 3.837489226343609*^9}, {
   3.8374892566036134`*^9, 3.8374894164796534`*^9}, {3.8374894620569215`*^9, 
   3.8374896027843614`*^9}, {3.837490733829015*^9, 3.8374907348690147`*^9}},
 FontSize->16,
 CellLabel->"In[41]:=",ExpressionUUID->"970e1226-5215-431f-83c1-dc3501008aad"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Sin", "[", 
     FractionBox["1", "x"], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.76633342567268*^9, {3.766399175023861*^9, 3.7663991862938538`*^9}, {
   3.7663992872538795`*^9, 3.766399290723878*^9}, 3.7663993650438833`*^9, {
   3.766399436603888*^9, 3.7663994404338975`*^9}, {3.766413367791766*^9, 
   3.7664133763371973`*^9}, {3.7664134257376995`*^9, 
   3.7664134275867586`*^9}, {3.7669541760700865`*^9, 3.7669541822667627`*^9}, 
   3.7669543513833404`*^9, 3.7669563433461747`*^9, {3.767087267666559*^9, 
   3.767087268805956*^9}, {3.837489223893613*^9, 3.837489226343609*^9}, {
   3.8374892566036134`*^9, 3.8374894164796534`*^9}, {3.8374894620569215`*^9, 
   3.8374898553269644`*^9}, {3.8374899091069655`*^9, 3.837489914096957*^9}, {
   3.8374907338390145`*^9, 3.837490734879015*^9}},
 FontSize->16,
 CellLabel->"In[86]:=",ExpressionUUID->"1d3de219-9b4d-4d42-88fc-87ccf637e343"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 776, 15, 35, "Input",ExpressionUUID->"143c7a78-3e25-40ce-a6c1-cab941221eaf"],
Cell[1337, 37, 837, 15, 49, "Input",ExpressionUUID->"7a046717-5af5-43a6-8f87-cc015eb1dc24"],
Cell[2177, 54, 773, 16, 53, "Input",ExpressionUUID->"22715315-32c6-4b87-9172-5bafb82ac35e"],
Cell[2953, 72, 720, 14, 55, "Input",ExpressionUUID->"9649eae3-a415-4bdd-b427-d703c5f27aff"],
Cell[3676, 88, 670, 11, 32, "Input",ExpressionUUID->"6935f1b6-42e5-4ef9-bb42-80691abeb9f6"],
Cell[4349, 101, 993, 23, 48, "Input",ExpressionUUID->"a1052d58-9fea-43b9-8411-a984d6a043b4"],
Cell[5345, 126, 1098, 28, 117, "Input",ExpressionUUID->"80adbc8f-0b1f-4ad2-82cb-814dbf139056"],
Cell[6446, 156, 952, 22, 108, "Input",ExpressionUUID->"10eb80c9-c428-4332-9d48-166be183652c"],
Cell[7401, 180, 845, 17, 48, "Input",ExpressionUUID->"abb2efd1-ee54-465f-bd45-411b7eaaed02"],
Cell[8249, 199, 930, 19, 53, "Input",ExpressionUUID->"219ad83f-9a17-48bd-8283-338cfb42e26a"],
Cell[9182, 220, 1065, 21, 53, "Input",ExpressionUUID->"970e1226-5215-431f-83c1-dc3501008aad"],
Cell[10250, 243, 1120, 22, 71, "Input",ExpressionUUID->"1d3de219-9b4d-4d42-88fc-87ccf637e343"]
}
]
*)

